home *** CD-ROM | disk | FTP | other *** search
/ SGI Hot Mix 14 / Hot Mix 14.iso / HTML / vendors / 3Name3D / mymail_2.pl < prev    next >
Perl Script  |  1996-07-22  |  4KB  |  89 lines
  1. #! /usr/local/bin/perl
  2.  
  3. $mailprog = '/usr/lib/sendmail';
  4. $recipient = 'info@ywd.com, cindy@shark.ywd.com';
  5.  
  6. &blank_response unless $ENV{'WWW_Name'};
  7.  
  8. open (MAIL, "|$mailprog $recipient") || die "Can't open $mailprog!\n";
  9.  
  10. print MAIL "To:  $recipient\n";
  11. print MAIL "From: Web Server <nobody\@www.ywd.com>\n";
  12. if ($ENV{'WWW_Email'}) {
  13.     print MAIL "Reply-To: $ENV{'WWW_Name'} <$ENV{'WWW_Email'}>\n";
  14. }
  15. else {
  16.     print MAIL "Reply-To: Web Server <nobody\@www.ywd.com>\n";
  17. }
  18. print MAIL "X-mailer: $ENV{'HTTP_USER_AGENT'}\n";
  19. print MAIL "X-Remote-Host: $ENV{'REMOTE_HOST'} ($ENV{'REMOTE_ADDR'})\n";
  20. print MAIL "X-Remote-User: $ENV{'REMOTE_USER'}\n";
  21. print MAIL "Subject: Cyberprops Catalog Request\n\n";
  22.  
  23. print MAIL "     Cyberprops Catalog Request\n";
  24. print MAIL "-------------------------------------------\n";
  25. print MAIL "Name................... $ENV{'WWW_Name'}\n";
  26. print MAIL "Title.................. $ENV{'WWW_Title'}\n";
  27. print MAIL "Company................ $ENV{'WWW_Company'}\n";
  28. print MAIL "Address................ $ENV{'WWW_Addrs'}\n";
  29. print MAIL "City................... $ENV{'WWW_City'}\n";
  30. print MAIL "State.................. $ENV{'WWW_State'}\n";
  31. print MAIL "Zip.................... $ENV{'WWW_zip'}\n";
  32. print MAIL "Country................ $ENV{'WWW_Country'}\n";
  33. print MAIL "Phone.................. $ENV{'WWW_Phone'}\n";
  34. print MAIL "Fax.................... $ENV{'WWW_fax'}\n";
  35. print MAIL "Email.................. $ENV{'WWW_Email'}\n\n";
  36. print MAIL "Wants CP Catalog....... $ENV{'WWW_Wants_CP_Catalog'}\n";
  37. print MAIL "Wants Cust Model info.. $ENV{'WWW_Wants_cust_Model'}\n";
  38. print MAIL "Job Function........... $ENV{'WWW_Function'}\n";
  39. print MAIL "Business............... $ENV{'WWW_Business'}\n\n";
  40. print MAIL "3D Platform............ $ENV{'WWW_Platform'}\n";
  41. print MAIL "3D Software............ $ENV{'WWW_3D_Software'}\n";
  42. print MAIL "File Format............ $ENV{'WWW_File_Format'}\n";
  43. print MAIL "Storage Media.......... $ENV{'WWW_Storage'}\n\n";
  44. print MAIL "Publications Read...... $ENV{'WWW_Publications'}\n\n";
  45. print MAIL "Heard About Us From.... $ENV{'WWW_Heard_About'}\n\n";
  46.  
  47. close (MAIL);
  48.  
  49. #    ----------------------------------------------------------------------
  50. # Print the html for the user
  51. print "Content-type: text/html\n\n";
  52.  
  53. print "<HEAD>\n<TITLE>\"Thanks!\"</TITLE>\n<LINK REV=\"made\" HREF=\"mailto:cindy\@shark.ywd.com\">\n</HEAD>\n";
  54. print "<BASEFONT SIZE=4><body bgcolor=\"#37DDF5\" link=\"#960020\" vlink=\"#110094\" alink=\"#FF5AF6\">\n\n";
  55.  
  56. print "<CENTER><FONT SIZE=\"5>\"Thank You For Requesting Information!<P>";
  57. print "<I>It's on it's way!</I></FONT></CENTER><P>";
  58.  
  59.     print "<A HREF=\"http://www.ywd.com/index.html\"><B>Return to Home Page</B></A><BR>\n";
  60. print "<HR SIZE=\"10\">\n";
  61. print "<address><FONT SIZE=\"3\">\n";
  62. print "Copyright © 1995 Yglesias Wallock Divekar, Inc., All Rights Reserved<BR>\n";
  63. print "Cyberprops and 3Name3D are trademarks of Yglesias Wallock Divekar, Inc.<BR>\n";
  64. print "Please direct any comments or bug reports to: <A HREF=\"mailto:webmaster\@ywd.com\">webmaster\@ywd.com</A>\n";
  65. print "</ADDRESS>\n";
  66. print "</BODY></BASEFONT></HTML>\n";
  67.  
  68. sub blank_response
  69. {
  70.     print "Content-type: text/html\n\n";
  71.     print "<HEAD>\n<TITLE>\"Ooops\"</TITLE>\n<LINK REV=\"made\" HREF=\"mailto:cindy\@shark.ywd.com\">\n</HEAD>\n";
  72.     print "<BASEFONT SIZE=\"4\"><body bgcolor=\"#37DDF5\" link=\"#960020\" vlink=\"#110094\" alink=\"#FF5AF6\">\n\n";
  73.  
  74.     print "<BR>";
  75.     print "<CENTER>Important information was missing from the catalog request form.<BR>";
  76.     print "Please press the "Back" button on your browser to return to it.</CENTER><P>";
  77.  
  78.     print "<HR SIZE=\"10\">\n";
  79.     print "<address><FONT SIZE=\"3\">\n";
  80.     print "Copyright © 1995 Yglesias Wallock Divekar, Inc., All Rights Reserved<BR>\n";
  81.     print "Cyberprops and 3Name3D are trademarks of Yglesias Wallock Divekar, Inc.<BR>\n";
  82.     print "Please direct any comments or bug reports to: <A HREF=\"mailto:webmaster\@ywd.com\">webmaster\@ywd.com</A>\n";
  83.     print "</ADDRESS>\n";
  84.     print "</BODY></BASEFONT></HTML>\n";
  85.  
  86.     exit;
  87. }
  88.  
  89.